home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
windownt
/
perlnt.zip
/
t
/
io
/
dup.nt
< prev
next >
Wrap
Text File
|
1993-07-25
|
599b
|
35 lines
#!./perl
# $Header: dup.t,v 4.0 91/03/20 01:50:49 lwall Locked $
print "1..6\n";
print "ok 1\n";
open(dupout,">&STDOUT");
open(duperr,">&STDERR");
open(STDOUT,">Io.dup") || die "Can't open stdout";
open(STDERR,">&STDOUT") || die "Can't open stderr";
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
print STDOUT "ok 2\n";
print STDERR "ok 3\n";
system 'echo ok 4';
system 'echo ok 5 1>&2';
close(STDOUT);
close(STDERR);
open(STDOUT,">&dupout");
open(STDERR,">&duperr");
#system 'cat Io.dup';
system 'type Io.dup';
unlink 'Io.dup';
print STDOUT "ok 6\n";